home *** CD-ROM | disk | FTP | other *** search
/ Collection of Internet / Collection of Internet.iso / infosrvr / dev / tkwww_0_.pat < prev    next >
Text File  |  1993-12-13  |  32KB  |  1,112 lines
  1. diff -c WWW/TkWWW/Makefile.in:1.1 WWW/TkWWW/Makefile.in:1.3
  2. *** WWW/TkWWW/Makefile.in:1.1    Mon Dec 13 20:06:09 1993
  3. --- WWW/TkWWW/Makefile.in    Mon Dec 13 20:06:09 1993
  4. ***************
  5. *** 1,5 ****
  6. ! # Master Makefile for the GNU file utilities.
  7. ! # Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
  8.   
  9.   # This program is free software; you can redistribute it and/or modify
  10.   # it under the terms of the GNU General Public License as published by
  11. --- 1,4 ----
  12. ! # Master Makefile for tkWWW
  13.   
  14.   # This program is free software; you can redistribute it and/or modify
  15.   # it under the terms of the GNU General Public License as published by
  16. ***************
  17. *** 20,32 ****
  18.   srcdir = @srcdir@
  19.   VPATH = @srcdir@
  20.   
  21. - # If you use gcc, you should either run the fixincludes script that
  22. - # comes with it or else use gcc with the -traditional option.  Otherwise
  23. - # ioctl calls will be compiled incorrectly on some systems.
  24.   CC = @CC@
  25.   CPP = @CPP@
  26.   AR = ar
  27. - # Set RANLIB = echo if your system doesn't have or need ranlib.
  28.   RANLIB = @RANLIB@
  29.   
  30.   DEFS = @DEFS@
  31. --- 19,30 ----
  32.   srcdir = @srcdir@
  33.   VPATH = @srcdir@
  34.   
  35.   CC = @CC@
  36. + INSTALL = @INSTALL@
  37. + INSTALL_PROGRAM = @INSTALL_PROGRAM@
  38. + 
  39.   CPP = @CPP@
  40.   AR = ar
  41.   RANLIB = @RANLIB@
  42.   
  43.   DEFS = @DEFS@
  44. ***************
  45. *** 89,96 ****
  46.       -DCPP_TK_WWW_MAIL=@TK_WWW_MAIL@ \
  47.       -DCPP_TK_WWW_TK_CMD=$(bindir)/@tk_www_tk_executable@
  48.   
  49. ! Tcl/tkWWW::  Tcl/tkWWW.cpp
  50. !     $(CPP) $(CPP_DEFINES) - < Tcl/tkWWW.cpp | \
  51.           sed -e '/^#  *[0-9][0-9]*  *.*$$/d' \
  52.               -e '/^XCOMM$$/s//#/' \
  53.               -e '/^XCOMM[^a-zA-Z0-9_]/s/^XCOMM/#/' >$@
  54. --- 87,94 ----
  55.       -DCPP_TK_WWW_MAIL=@TK_WWW_MAIL@ \
  56.       -DCPP_TK_WWW_TK_CMD=$(bindir)/@tk_www_tk_executable@
  57.   
  58. ! $(srcdir)/Tcl/tkWWW::  $(srcdir)/Tcl/tkWWW.cpp
  59. !     $(CPP) $(CPP_DEFINES) - < $(srcdir)/Tcl/tkWWW.cpp | \
  60.           sed -e '/^#  *[0-9][0-9]*  *.*$$/d' \
  61.               -e '/^XCOMM$$/s//#/' \
  62.               -e '/^XCOMM[^a-zA-Z0-9_]/s/^XCOMM/#/' >$@
  63. ***************
  64. *** 103,126 ****
  65.   check:
  66.   installcheck:
  67.   
  68. ! Makefile: config.status $(srcdir)/Makefile.in $(srcdir)/lib/Makefile.in \
  69. !         $(srcdir)/man/Makefile.in $(srcdir)/src/Makefile.in
  70.       $(SHELL) config.status
  71.   
  72.   # Make sure all installation directories, e.g. $(bindir) actually exist by
  73.   # making them if necessary.
  74.   installdirs:
  75.       $(SHELL) $(srcdir)/mkinstalldirs \
  76.         $(bindir) $(datadir) $(libdir) $(infodir) $(mandir)
  77.   
  78. ! install:: installdirs
  79.   
  80. ! install uninstall TAGS clean mostlyclean distclean realclean::
  81.       for dir in $(SUBDIRS); do \
  82.         echo making $@ in $$dir ; \
  83.         (cd $$dir; $(MAKE) $(MDEFINES) $@) ; \
  84.       done
  85.   
  86.   distclean realclean::
  87.       rm -f Makefile config.status
  88.   
  89. --- 101,134 ----
  90.   check:
  91.   installcheck:
  92.   
  93. ! Makefile: config.status $(srcdir)/Makefile.in $(srcdir)/Server/Makefile.in \
  94. !         $(srcdir)/Library/Makefile.in
  95.       $(SHELL) config.status
  96.   
  97.   # Make sure all installation directories, e.g. $(bindir) actually exist by
  98.   # making them if necessary.
  99. + 
  100.   installdirs:
  101.       $(SHELL) $(srcdir)/mkinstalldirs \
  102.         $(bindir) $(datadir) $(libdir) $(infodir) $(mandir)
  103.   
  104. ! install:: installdirs  $(srcdir)/Tcl/tkWWW
  105. !     for dir in $(SUBDIRS); do \
  106. !       echo making $@ in $$dir ; \
  107. !       (cd $$dir; $(MAKE) $(MDEFINES) $@) ; \
  108. !     done
  109. !     $(INSTALL_PROGRAM) $(srcdir)/Tcl/tkWWW $(bindir)/tkWWW
  110.   
  111. ! uninstall TAGS clean mostlyclean distclean realclean::
  112.       for dir in $(SUBDIRS); do \
  113.         echo making $@ in $$dir ; \
  114.         (cd $$dir; $(MAKE) $(MDEFINES) $@) ; \
  115.       done
  116.   
  117. + clean::
  118. +     rm -f $(srcdir)/Tcl/tkWWW
  119. + 
  120. + 
  121.   distclean realclean::
  122.       rm -f Makefile config.status
  123.   
  124. ***************
  125. *** 142,156 ****
  126.   
  127.   # Prevent GNU make v3 from overflowing arg limit on SysV.
  128.   .NOEXPORT:
  129. - 
  130. - .cpp.tcl:
  131. -     $(CPP) $(CPP_DEFINES) - < $< | \
  132. -         sed -e '/^#  *[0-9][0-9]*  *.*$$/d' \
  133. -             -e '/^XCOMM$$/s//#/' \
  134. -             -e '/^XCOMM[^a-zA-Z0-9_]/s/^XCOMM/#/' >$@
  135. - 
  136. - clean::
  137. -     rm -f $(TK_WWW_PROCESS_CODE) tkWWW
  138. - 
  139. - install:: tkWWW.script
  140. -     $(INSTALL) -c $(INSTSCRFLAGS) tkWWW.script $(BINDIR)/tkWWW
  141. --- 150,152 ----
  142. diff -c WWW/TkWWW/README.txt:1.12 WWW/TkWWW/README.txt:1.13
  143. *** WWW/TkWWW/README.txt:1.12    Mon Dec 13 20:06:10 1993
  144. --- WWW/TkWWW/README.txt    Mon Dec 13 20:06:10 1993
  145. ***************
  146. *** 1,4 ****
  147. ! tkWWW Version 0.9 beta (joe@athena.mit.edu)
  148.   --------------------------------------------
  149.   WHAT IS THIS?
  150.   -------------
  151. --- 1,4 ----
  152. ! tkWWW Version 0.10 beta (joe@athena.mit.edu)
  153.   --------------------------------------------
  154.   WHAT IS THIS?
  155.   -------------
  156. ***************
  157. *** 14,29 ****
  158.   Since the entire user interface is written in an interpreted language,
  159.   it is very easy to make modifications and extensions to the system.
  160.   tkWWW is the first X11 browser with the ability to edit HTML!!!!!
  161. - 
  162. - What has changed since 0.8?
  163. - ---------------------------
  164. - * Much better editing user interface 
  165. -   Thanks to creilly@maths.tcd.ie and jay@bogle.eitech.com
  166. - * Recognition of character style tags
  167. - * Partial support for IMAGE tags
  168. - * Compatibility with TCL 7.0
  169. - * Compatibility with old HTTP servers
  170. - 
  171.   
  172.   To Install
  173.   ----------
  174. --- 14,19 ----
  175. diff -c WWW/TkWWW/configure:1.2 WWW/TkWWW/configure:1.4
  176. *** WWW/TkWWW/configure:1.2    Mon Dec 13 20:06:11 1993
  177. --- WWW/TkWWW/configure    Mon Dec 13 20:06:11 1993
  178. ***************
  179. *** 142,147 ****
  180. --- 142,163 ----
  181.   tk_www_start_page=$tk_www_home_page
  182.   
  183.   
  184. + if test -z "$prefix"
  185. + then
  186. +   echo checking for wish to derive installation directory prefix
  187. +   IFS="${IFS=     }"; saveifs="$IFS"; IFS="$IFS:"
  188. +   for dir in $PATH; do
  189. +     test -z "$dir" && dir=.
  190. +     if test $dir != . && test -f $dir/wish; then
  191. +       # Not all systems have dirname.
  192. +       prefix=`echo $dir|sed 's%/[^/][^/]*$%%'`
  193. +       break
  194. +     fi
  195. +   done
  196. +   IFS="$saveifs"
  197. +   echo "    chose installation directory prefix ${prefix}"
  198. + fi
  199. + 
  200.   if test -z "$CC"; then
  201.     # Extract the first word of `gcc', so it can be a program name with args.
  202.     set dummy gcc; word=$2
  203. ***************
  204. *** 280,286 ****
  205.   # Run xmkmf to check for location of X libraries and includes
  206.   #
  207.   
  208. ! # If we find X, set shell vars x_includes and x_libraries to the paths.
  209.   no_x=true
  210.   echo checking for X include and library files with xmkmf
  211.   rm -fr conftestdir
  212. --- 296,320 ----
  213.   # Run xmkmf to check for location of X libraries and includes
  214.   #
  215.   
  216. ! if test -z "$tk_ok"; then
  217. !   # Extract the first word of `xmkmf', so it can be a program name with args.
  218. !   set dummy xmkmf; word=$2
  219. !   echo checking for $word
  220. !   IFS="${IFS=     }"; saveifs="$IFS"; IFS="${IFS}:"
  221. !   for dir in $PATH; do
  222. !     test -z "$dir" && dir=.
  223. !     if test -f $dir/$word; then
  224. !       tk_ok="1"
  225. !       break
  226. !     fi
  227. !   done
  228. !   IFS="$saveifs"
  229. ! fi
  230. ! test -z "$tk_ok" && tk_ok="0"
  231. ! test -n "$tk_ok" && test -n "$verbose" && echo "    setting tk_ok to $tk_ok"
  232. ! 
  233. ! if test $tk_ok = 1; then
  234. !     # If we find X, set shell vars x_includes and x_libraries to the paths.
  235.   no_x=true
  236.   echo checking for X include and library files with xmkmf
  237.   rm -fr conftestdir
  238. ***************
  239. *** 395,405 ****
  240. --- 429,540 ----
  241.     test -n "$x_includes" && echo "    found X11 headers in $x_includes"
  242.     test -n "$x_libraries" && echo "    found X11 libraries in $x_libraries"
  243.   fi
  244. + fi
  245. + if test "$x_includes" = /usr/include; then
  246. +     XINCLUDES="# no special path needed"
  247. + elif test "$x_includes" != ""; then
  248. +     XINCLUDES=" -I$x_includes"
  249. + else
  250. +     echo checking for X11 header files
  251. +     XINCLUDES="# no special path needed"
  252. +     cat > conftest.c <<EOF
  253. + #include "confdefs.h"
  254. + #include <X11/Intrinsic.h>
  255. + EOF
  256. + err=`eval "($CPP conftest.c >/dev/null) 2>&1"`
  257. + if test -z "$err"; then
  258. +   :
  259. + else
  260. +   rm -rf conftest*
  261. +   XINCLUDES="nope"
  262. + fi
  263. + rm -f conftest*
  264. +     if test "$XINCLUDES" = nope; then
  265. +         dirs=${XINCLUDE_DIR-"/usr/unsupported/include /usr/local/include /usr/X386/include /usr/include/X11R4 /usr/X11R5/include /usr/include/X11R5 /usr/openwin/include /usr/X11/include"}
  266. +         for i in $dirs ; do
  267. +         if test -r $i/X11/Intrinsic.h; then
  268. +             XINCLUDES=" -I$i"
  269. +         fi
  270. +         done
  271. +     fi
  272. + fi
  273. + if test "$XINCLUDES" = nope; then
  274. +   echo "Warning:  couldn't find any X11 include files."
  275. +   XINCLUDES="# no include files found"
  276. + fi
  277.   
  278.   
  279. + if test "$x_libraries" = /usr/lib; then
  280. +     XLIBSW=-lX11
  281. + elif test "$x_libraries" != ""; then
  282. +     XLIBSW="-L$x_libraries -lX11"
  283. + else
  284. +     echo "checking for X11 library archive"
  285. +     LIBS_save="${LIBS}"
  286. + LIBS="${LIBS} -lX11"
  287. + have_lib=""
  288. + echo checking for -lX11
  289. + cat > conftest.c <<EOF
  290. + #include "confdefs.h"
  291.   
  292. + int main() { exit(0); }
  293. + int t() { main(); }
  294. + EOF
  295. + if eval $compile; then
  296. +   rm -rf conftest*
  297. +   have_lib="1"
  298.   
  299. + fi
  300. + rm -f conftest*
  301. + LIBS="${LIBS_save}"
  302. + if test -n "${have_lib}"; then
  303. +    :; XLIBSW="-lX11"
  304. + else
  305. +    :; XLIBSW=nope
  306. + fi
  307.   
  308. +     if test "$XLIBSW" = nope; then
  309. +     dirs=${XLIBRARY_DIR-"/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/lib/X11R4 /usr/X11R5/lib /usr/lib/X11R5 /usr/openwin/lib /usr/X11/lib"}
  310. +     for i in $dirs ; do
  311. +         if test -r $i/libX11.a; then
  312. +         XLIBSW="-L$i -lX11"
  313. +         fi
  314. +     done
  315. +     fi
  316. + fi
  317. + if test "$XLIBSW" = nope ; then
  318. +     LIBS_save="${LIBS}"
  319. + LIBS="${LIBS} -lXwindow"
  320. + have_lib=""
  321. + echo checking for -lXwindow
  322. + cat > conftest.c <<EOF
  323. + #include "confdefs.h"
  324. + 
  325. + int main() { exit(0); }
  326. + int t() { main(); }
  327. + EOF
  328. + if eval $compile; then
  329. +   rm -rf conftest*
  330. +   have_lib="1"
  331. + 
  332. + fi
  333. + rm -f conftest*
  334. + LIBS="${LIBS_save}"
  335. + if test -n "${have_lib}"; then
  336. +    :; XLIBSW=-lXwindow
  337. + else
  338. +    :; 
  339. + fi
  340. + 
  341. + fi
  342. + if test "$XLIBSW" = nope ; then
  343. +     echo "Warning:  couldn't find the X11 library archive.  Using -lX11."
  344. +     XLIBSW=-lX11
  345. + fi
  346. + 
  347. + 
  348. + 
  349. + 
  350.   #
  351.   # This is to substitute extra paths that 
  352.   #
  353. ***************
  354. *** 601,629 ****
  355.   #
  356.   
  357.   LIBS_save="${LIBS}"
  358. - LIBS="${LIBS} -lbsdmalloc"
  359. - have_lib=""
  360. - echo checking for -lbsdmalloc
  361. - cat > conftest.c <<EOF
  362. - #include "confdefs.h"
  363. - 
  364. - int main() { exit(0); }
  365. - int t() { main(); }
  366. - EOF
  367. - if eval $compile; then
  368. -   rm -rf conftest*
  369. -   have_lib="1"
  370. - 
  371. - fi
  372. - rm -f conftest*
  373. - LIBS="${LIBS_save}"
  374. - if test -n "${have_lib}"; then
  375. -    :; LIBS="$LIBS -lbsdmalloc"
  376. - else
  377. -    :; 
  378. - fi
  379. - 
  380. - LIBS_save="${LIBS}"
  381.   LIBS="${LIBS} -lelf"
  382.   have_lib=""
  383.   echo checking for -lelf
  384. --- 736,741 ----
  385. ***************
  386. *** 743,750 ****
  387.   CPP='$CPP'
  388.   RANLIB='$RANLIB'
  389.   TK_WWW_MAIL='$TK_WWW_MAIL'
  390. ! x_includes='$x_includes'
  391. ! x_libraries='$x_libraries'
  392.   tk_www_extra_path='$tk_www_extra_path'
  393.   tk_www_tk_executable='$tk_www_tk_executable'
  394.   TCL_INCDIR='$TCL_INCDIR'
  395. --- 855,863 ----
  396.   CPP='$CPP'
  397.   RANLIB='$RANLIB'
  398.   TK_WWW_MAIL='$TK_WWW_MAIL'
  399. ! tk_ok='$tk_ok'
  400. ! XINCLUDES='$XINCLUDES'
  401. ! XLIBSW='$XLIBSW'
  402.   tk_www_extra_path='$tk_www_extra_path'
  403.   tk_www_tk_executable='$tk_www_tk_executable'
  404.   TCL_INCDIR='$TCL_INCDIR'
  405. ***************
  406. *** 787,794 ****
  407.   s%@CPP@%$CPP%g
  408.   s%@RANLIB@%$RANLIB%g
  409.   s%@TK_WWW_MAIL@%$TK_WWW_MAIL%g
  410. ! s%@x_includes@%$x_includes%g
  411. ! s%@x_libraries@%$x_libraries%g
  412.   s%@tk_www_extra_path@%$tk_www_extra_path%g
  413.   s%@tk_www_tk_executable@%$tk_www_tk_executable%g
  414.   s%@TCL_INCDIR@%$TCL_INCDIR%g
  415. --- 900,908 ----
  416.   s%@CPP@%$CPP%g
  417.   s%@RANLIB@%$RANLIB%g
  418.   s%@TK_WWW_MAIL@%$TK_WWW_MAIL%g
  419. ! s%@tk_ok@%$tk_ok%g
  420. ! s%@XINCLUDES@%$XINCLUDES%g
  421. ! s%@XLIBSW@%$XLIBSW%g
  422.   s%@tk_www_extra_path@%$tk_www_extra_path%g
  423.   s%@tk_www_tk_executable@%$tk_www_tk_executable%g
  424.   s%@TCL_INCDIR@%$TCL_INCDIR%g
  425. ***************
  426. *** 806,817 ****
  427.   EOF
  428.   chmod +x config.status
  429.   ${CONFIG_SHELL-/bin/sh} config.status
  430. - 
  431. - 
  432. - 
  433. - 
  434. - 
  435. - 
  436. - 
  437. - 
  438.   
  439. --- 920,923 ----
  440. diff -c WWW/TkWWW/configure.in:1.2 WWW/TkWWW/configure.in:1.4
  441. *** WWW/TkWWW/configure.in:1.2    Mon Dec 13 20:06:12 1993
  442. --- WWW/TkWWW/configure.in    Mon Dec 13 20:06:12 1993
  443. ***************
  444. *** 15,20 ****
  445. --- 15,22 ----
  446.   tk_www_start_page=$tk_www_home_page
  447.   AC_SUBST(tk_www_start_page)
  448.   
  449. + dnl Guess prefix
  450. + AC_PREFIX(wish)
  451.   AC_PROG_CC
  452.   AC_PROG_INSTALL
  453.   AC_PROG_CPP
  454. ***************
  455. *** 30,39 ****
  456.   # Run xmkmf to check for location of X libraries and includes
  457.   #
  458.   
  459. ! AC_FIND_X
  460. ! AC_SUBST(x_includes)
  461. ! AC_SUBST(x_libraries)
  462.   
  463.   define(AC_FIND_PROG_PATH,
  464.   [echo checking for path of $1
  465.     IFS="${IFS=     }"; saveifs="$IFS"; IFS="$IFS:"
  466. --- 32,89 ----
  467.   # Run xmkmf to check for location of X libraries and includes
  468.   #
  469.   
  470. ! AC_PROGRAM_CHECK(tk_ok, xmkmf, 1, 0)
  471. ! if test $tk_ok = 1; then
  472. !     AC_FIND_X
  473. ! fi
  474. ! if test "$x_includes" = /usr/include; then
  475. !     XINCLUDES="# no special path needed"
  476. ! elif test "$x_includes" != ""; then
  477. !     XINCLUDES=" -I$x_includes"
  478. ! else
  479. !     echo checking for X11 header files
  480. !     XINCLUDES="# no special path needed"
  481. !     AC_TEST_CPP([#include <X11/Intrinsic.h>], , XINCLUDES="nope")
  482. !     if test "$XINCLUDES" = nope; then
  483. !         dirs=${XINCLUDE_DIR-"/usr/unsupported/include /usr/local/include /usr/X386/include /usr/include/X11R4 /usr/X11R5/include /usr/include/X11R5 /usr/openwin/include /usr/X11/include"}
  484. !         for i in $dirs ; do
  485. !         if test -r $i/X11/Intrinsic.h; then
  486. !             XINCLUDES=" -I$i"
  487. !         fi
  488. !         done
  489. !     fi
  490. ! fi
  491. ! if test "$XINCLUDES" = nope; then
  492. !   echo "Warning:  couldn't find any X11 include files."
  493. !   XINCLUDES="# no include files found"
  494. ! fi
  495. ! AC_SUBST(XINCLUDES)
  496.   
  497. + if test "$x_libraries" = /usr/lib; then
  498. +     XLIBSW=-lX11
  499. + elif test "$x_libraries" != ""; then
  500. +     XLIBSW="-L$x_libraries -lX11"
  501. + else
  502. +     echo "checking for X11 library archive"
  503. +     AC_HAVE_LIBRARY(X11, XLIBSW="-lX11", XLIBSW=nope)
  504. +     if test "$XLIBSW" = nope; then
  505. +     dirs=${XLIBRARY_DIR-"/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/lib/X11R4 /usr/X11R5/lib /usr/lib/X11R5 /usr/openwin/lib /usr/X11/lib"}
  506. +     for i in $dirs ; do
  507. +         if test -r $i/libX11.a; then
  508. +         XLIBSW="-L$i -lX11"
  509. +         fi
  510. +     done
  511. +     fi
  512. + fi
  513. + if test "$XLIBSW" = nope ; then
  514. +     AC_HAVE_LIBRARY(Xwindow, XLIBSW=-lXwindow)
  515. + fi
  516. + if test "$XLIBSW" = nope ; then
  517. +     echo "Warning:  couldn't find the X11 library archive.  Using -lX11."
  518. +     XLIBSW=-lX11
  519. + fi
  520. + AC_SUBST(XLIBSW)
  521. + 
  522.   define(AC_FIND_PROG_PATH,
  523.   [echo checking for path of $1
  524.     IFS="${IFS=     }"; saveifs="$IFS"; IFS="$IFS:"
  525. ***************
  526. *** 174,190 ****
  527.   # Add special libraries for solaris
  528.   #
  529.   
  530. - AC_HAVE_LIBRARY(bsdmalloc, [LIBS="$LIBS -lbsdmalloc"])
  531.   AC_HAVE_LIBRARY(elf, [LIBS="$LIBS -lelf"])
  532.   AC_HAVE_LIBRARY(socket, [LIBS="$LIBS -lsocket"])
  533.   AC_HAVE_LIBRARY(nsl, [LIBS="$LIBS -lnsl"])
  534.   
  535.   AC_OUTPUT(Makefile Server/Makefile Library/Makefile)
  536. - 
  537. - 
  538. - 
  539. - 
  540. - 
  541. - 
  542. - 
  543. - 
  544. --- 224,231 ----
  545. diff -c /dev/null WWW/TkWWW/mkinstalldirs:1.1
  546. *** /dev/null    Mon Dec 13 20:06:12 1993
  547. --- WWW/TkWWW/mkinstalldirs    Mon Dec 13 20:06:12 1993
  548. ***************
  549. *** 0 ****
  550. --- 1,35 ----
  551. + #!/bin/sh
  552. + # Make directory hierarchy. 
  553. + # Written by Noah Friedman <friedman@prep.ai.mit.edu>
  554. + # Public domain.
  555. + 
  556. + defaultIFS='     
  557. + '
  558. + IFS="${IFS-${defaultIFS}}"
  559. + 
  560. + errstatus=0
  561. + 
  562. + for file in ${1+"$@"} ; do 
  563. +    oIFS="${IFS}"
  564. +    # Some sh's can't handle IFS=/ for some reason.
  565. +    IFS='%'
  566. +    set - `echo ${file} | sed -e 's@/@%@g' -e 's@^%@/@'`
  567. +    IFS="${oIFS}"
  568. + 
  569. +    pathcomp=''
  570. + 
  571. +    for d in ${1+"$@"} ; do
  572. +      pathcomp="${pathcomp}${d}"
  573. + 
  574. +      if test ! -d "${pathcomp}"; then
  575. +         echo "mkdir $pathcomp" 1>&2
  576. +         mkdir "${pathcomp}" || errstatus=$?
  577. +      fi
  578. + 
  579. +      pathcomp="${pathcomp}/"
  580. +    done
  581. + done
  582. + 
  583. + exit $errstatus
  584. + 
  585. + # eof
  586. diff -c WWW/TkWWW/Library/Makefile.in:1.1 WWW/TkWWW/Library/Makefile.in:1.2
  587. *** WWW/TkWWW/Library/Makefile.in:1.1    Mon Dec 13 20:06:22 1993
  588. --- WWW/TkWWW/Library/Makefile.in    Mon Dec 13 20:06:22 1993
  589. ***************
  590. *** 171,181 ****
  591.   
  592.   #    Install W3 library into system space (not normally necessary)
  593.   
  594. ! install : libwww.a
  595.       if [ ! -r $(LIBDIR) ] mkdir $(LIBDIR)
  596.       cp libwww.a $(LIBDIR)/libwww.a
  597.       
  598. ! uninstall :
  599.       $(RM) $(LIBDIR)/libwww.a
  600.   
  601.   #        Distribution use only:
  602. --- 171,183 ----
  603.   
  604.   #    Install W3 library into system space (not normally necessary)
  605.   
  606. ! install: 
  607. ! 
  608. ! installlib : libwww.a
  609.       if [ ! -r $(LIBDIR) ] mkdir $(LIBDIR)
  610.       cp libwww.a $(LIBDIR)/libwww.a
  611.       
  612. ! uninstalllib :
  613.       $(RM) $(LIBDIR)/libwww.a
  614.   
  615.   #        Distribution use only:
  616. diff -c WWW/TkWWW/Server/HText.c:1.2 WWW/TkWWW/Server/HText.c:1.3
  617. *** WWW/TkWWW/Server/HText.c:1.2    Mon Dec 13 20:06:26 1993
  618. --- WWW/TkWWW/Server/HText.c    Mon Dec 13 20:06:26 1993
  619. ***************
  620. *** 131,137 ****
  621.       char *cmd_start;
  622.       cmd_start = text->output->data + text->execute_pointer;
  623.   
  624. !     text->output->data[text->output->size] = '\0';
  625.       if (Tcl_CommandComplete(cmd_start)) {
  626.         text->execute_pointer = text->output->size;
  627.         value = Tcl_Eval(HtTclInterp, cmd_start);
  628. --- 131,139 ----
  629.       char *cmd_start;
  630.       cmd_start = text->output->data + text->execute_pointer;
  631.   
  632. !     /* never access directly, it crash when chunk is just full 
  633. !        use that instead :                     -- dl           */
  634. !     HTChunkPutc(text->output,0) ;
  635.       if (Tcl_CommandComplete(cmd_start)) {
  636.         text->execute_pointer = text->output->size;
  637.         value = Tcl_Eval(HtTclInterp, cmd_start);
  638. diff -c WWW/TkWWW/Server/Makefile.in:1.1 WWW/TkWWW/Server/Makefile.in:1.2
  639. *** WWW/TkWWW/Server/Makefile.in:1.1    Mon Dec 13 20:06:27 1993
  640. --- WWW/TkWWW/Server/Makefile.in    Mon Dec 13 20:06:27 1993
  641. ***************
  642. *** 20,35 ****
  643.   # Where to install the executable.
  644.   bindir = $(exec_prefix)/bin
  645.   
  646. ! INCLUDES = -I. \
  647. !     -I@TCL_INCDIR@    -I@TK_INCDIR@ \
  648. !     -I@x_includes@ -I../../Library/Implementation
  649.   
  650.   CFLAGS= $(CDEBUGFLAGS) $(DEFINES) $(INCLUDES)
  651.   
  652. ! LIBS=../Library/libwww.a \
  653. !     -L@x_libraries@ -lX11 \
  654. !     -L@TK_LIBDIR@ -ltk \
  655. !     -L@TCL_LIBDIR@ -ltcl @LIBS@ -lX11 -lm
  656.   
  657.   TEST_LIBS=@TCL_LIBDIR@ -ltcl -lm
  658.   
  659. --- 20,36 ----
  660.   # Where to install the executable.
  661.   bindir = $(exec_prefix)/bin
  662.   
  663. ! XINCLUDES = @XINCLUDES@
  664. ! XLIBSW = @XLIBSW@
  665.   
  666. + 
  667. + INCLUDES = -I. -I@TCL_INCDIR@    -I@TK_INCDIR@ \
  668. +     $(XINCLUDES) -I../../Library/Implementation
  669. + 
  670.   CFLAGS= $(CDEBUGFLAGS) $(DEFINES) $(INCLUDES)
  671.   
  672. ! LIBS=../Library/libwww.a -L@TK_LIBDIR@ -ltk -L@TCL_LIBDIR@ -ltcl \
  673. !     $(XLIBSW) @LIBS@ -lm
  674.   
  675.   TEST_LIBS=@TCL_LIBDIR@ -ltcl -lm
  676.   
  677. diff -c WWW/TkWWW/Tcl/bookmarks.tcl:1.14 WWW/TkWWW/Tcl/bookmarks.tcl:1.15
  678. *** WWW/TkWWW/Tcl/bookmarks.tcl:1.14    Mon Dec 13 20:06:34 1993
  679. --- WWW/TkWWW/Tcl/bookmarks.tcl    Mon Dec 13 20:06:35 1993
  680. ***************
  681. *** 36,41 ****
  682. --- 36,42 ----
  683.       tkW3OutputMakeButtons $w.button_frame {
  684.       {current "Add current" "tkW3BookmarksAdd"}
  685.       {goto "Go To" "tkW3BookmarksGotoSelected"}
  686. +     {clone "Clone" "tkW3BookmarksGotoSelected 1"}
  687.       {remove "Remove" "tkW3BookmarksDeleteSelected"}
  688.       {edit "Edit Title" "tkW3BookmarksEditTitle"}
  689.       }
  690. ***************
  691. *** 54,67 ****
  692.   %W select from \[%W nearest %y\]
  693.   tkW3BookmarksGotoSelected"
  694.   
  695.       DLG:show $parent $w
  696.   }
  697.   
  698. ! proc tkW3BookmarksGotoSelected {} {
  699.       global tkW3Bookmarks
  700. !     tkW3NavigateRecordAndGoto [ \
  701.          lindex [lindex $tkW3Bookmarks(list) \
  702.              [DLG:get_listbox_highlighted .bookmarks]] 1]
  703.   }
  704.   
  705.   proc tkW3BookmarksDeleteSelected {} {
  706. --- 55,78 ----
  707.   %W select from \[%W nearest %y\]
  708.   tkW3BookmarksGotoSelected"
  709.   
  710. +     bind $w.list <Double-2> "$w.button_frame.clone flash
  711. + %W select from \[%W nearest %y\]
  712. + tkW3BookmarksGotoSelected 1"
  713. + 
  714.       DLG:show $parent $w
  715.   }
  716.   
  717. ! proc tkW3BookmarksGotoSelected {{clone 0}} {
  718.       global tkW3Bookmarks
  719. !     set address  [ \
  720.          lindex [lindex $tkW3Bookmarks(list) \
  721.              [DLG:get_listbox_highlighted .bookmarks]] 1]
  722. +     
  723. +     if {$clone} {
  724. +     tkW3NavigateClone $address
  725. +     } {
  726. +     tkW3NavigateRecordAndGoto $address
  727. +     }
  728.   }
  729.   
  730.   proc tkW3BookmarksDeleteSelected {} {
  731. ***************
  732. *** 72,78 ****
  733. --- 83,109 ----
  734.       tkW3BookmarksSave
  735.   }
  736.   
  737. + proc tkW3BookmarksEditTitle {} {
  738. +     global tkW3Bookmarks
  739. +     set i [DLG:get_listbox_highlighted .bookmarks]
  740. +     set title [lindex [lindex $tkW3Bookmarks(list) $i] 0]
  741.   
  742. +     DLG:entry . .edit_dialog "Bookmark title" \
  743. +     {"Title:"} "Edit" "tkW3BookmarksDoEditTitle $i"
  744. +     DLG:set_entry_value .edit_dialog 1 $title
  745. +     DLG:show . .edit_dialog
  746. + }
  747. + 
  748. + proc tkW3BookmarksDoEditTitle {i title} {
  749. +     global tkW3Bookmarks
  750. +     set address [lindex [lindex $tkW3Bookmarks(list) $i] 1]
  751. +     set tkW3Bookmarks(list) \
  752. +     [lreplace $tkW3Bookmarks(list) $i $i [list $title $address]]
  753. +     .bookmarks.list delete $i
  754. +     .bookmarks.list insert $i $title
  755. +     tkW3BookmarksSave
  756. + }
  757. + 
  758.   ## tkW3BookmarksAdd: Add a bookmark
  759.   ## -----------
  760.   ## Arguments
  761. ***************
  762. *** 96,105 ****
  763.       if {[winfo exists .bookmarks.list]} {
  764.       .bookmarks.list insert end $title
  765.       }
  766. - }
  767. - 
  768. - proc tkW3BookmarksDelete {} {
  769. -     tkW3HelpNotAvailable
  770.   }
  771.   
  772.   # Load bookmarks from file
  773. --- 127,132 ----
  774. diff -c WWW/TkWWW/Tcl/edit.generate.tcl:1.2 WWW/TkWWW/Tcl/edit.generate.tcl:1.3
  775. *** WWW/TkWWW/Tcl/edit.generate.tcl:1.2    Mon Dec 13 20:06:35 1993
  776. --- WWW/TkWWW/Tcl/edit.generate.tcl    Mon Dec 13 20:06:35 1993
  777. ***************
  778. *** 67,73 ****
  779.       tkW3EditConvertLineItems $w     
  780.       set delimit_tags {
  781.       {ADDRESS "\n<ADDRESS>" "\n</ADDRESS>"}
  782. !     {PRE "<PRE>\n" "</PRE>\n"}
  783.       {CODE "<CODE>" "</CODE>"}
  784.       {TT "<TT>" "</TT>"}
  785.       {B "<B>" "</B>"}
  786. --- 67,73 ----
  787.       tkW3EditConvertLineItems $w     
  788.       set delimit_tags {
  789.       {ADDRESS "\n<ADDRESS>" "\n</ADDRESS>"}
  790. !     {PRE "\n<PRE>" "\n</PRE>"}
  791.       {CODE "<CODE>" "</CODE>"}
  792.       {TT "<TT>" "</TT>"}
  793.       {B "<B>" "</B>"}
  794. diff -c WWW/TkWWW/Tcl/edit.tcl:1.16 WWW/TkWWW/Tcl/edit.tcl:1.17
  795. *** WWW/TkWWW/Tcl/edit.tcl:1.16    Mon Dec 13 20:06:36 1993
  796. --- WWW/TkWWW/Tcl/edit.tcl    Mon Dec 13 20:06:36 1993
  797. ***************
  798. *** 80,86 ****
  799.       {ispell_text .edit.main.t}
  800.       set button_list {
  801.       {generate "Generate Source" "tkW3EditGenerate"}
  802. !     {save "Save" "tkW3EditSave"}
  803.       {close "Close Window" "tkW3EditClose"}
  804.       }
  805.       pack append .edit \
  806. --- 80,86 ----
  807.       {ispell_text .edit.main.t}
  808.       set button_list {
  809.       {generate "Generate Source" "tkW3EditGenerate"}
  810. !     {save "Save As..." "tkW3EditSave"}
  811.       {close "Close Window" "tkW3EditClose"}
  812.       }
  813.       pack append .edit \
  814. ***************
  815. *** 340,346 ****
  816.   ## Save Generated HTML to a file
  817.   ## ********************
  818.   
  819. ! proc tkW3EditSave {} {
  820.       global fsBox
  821.       set list [split [tkW3NavigateGetAddress] ":"]
  822.       set type [lindex $list 0]
  823. --- 340,346 ----
  824.   ## Save Generated HTML to a file
  825.   ## ********************
  826.   
  827. ! proc tkW3EditSave {{no_prompt 0}} {
  828.       global fsBox
  829.       set list [split [tkW3NavigateGetAddress] ":"]
  830.       set type [lindex $list 0]
  831. ***************
  832. *** 351,356 ****
  833. --- 351,361 ----
  834.       if {"$type" == "file" && ![string match $name "//*"]} {
  835.       set fsBox(path) [file dirname $name]
  836.       set file [file tail $name]
  837. +     if {$no_prompt != 0} {
  838. +         tkW3EditClose
  839. +         tkW3EditOutputHTML $fsBox(path)/$file
  840. +         return
  841. +     }
  842.       }
  843.   
  844.       tkW3EditClose
  845. ***************
  846. *** 372,378 ****
  847.           }
  848.       }
  849.       if {[catch "open $filename w" file] != 0} {
  850. !         DLG:error . .error "couldn't open $filename for writing" "OK"
  851.           return
  852.       }
  853.       puts $file [.edit.main.t get 1.0 end]
  854. --- 377,383 ----
  855.           }
  856.       }
  857.       if {[catch "open $filename w" file] != 0} {
  858. !         tkW3OutputError "couldn't open $filename for writing"
  859.           return
  860.       }
  861.       puts $file [.edit.main.t get 1.0 end]
  862. ***************
  863. *** 576,578 ****
  864. --- 581,588 ----
  865.       DLG:set_entry_value .image_dialog 1 $tkW3HtPage(image.$i)
  866.       DLG:show . .image_dialog
  867.   }
  868. + 
  869. + ## *********************
  870. + ## Procedures dealing with RCS
  871. + ## *********************
  872. + 
  873. diff -c WWW/TkWWW/Tcl/file.tcl:1.14 WWW/TkWWW/Tcl/file.tcl:1.15
  874. *** WWW/TkWWW/Tcl/file.tcl:1.14    Mon Dec 13 20:06:37 1993
  875. --- WWW/TkWWW/Tcl/file.tcl    Mon Dec 13 20:06:37 1993
  876. ***************
  877. *** 49,54 ****
  878. --- 49,63 ----
  879.       DLG:show . .fsBox
  880.   }
  881.   
  882. + 
  883. + proc tkW3FileSave {} {
  884. +     tkW3EditOpen 0
  885. +     tkW3EditCopyText .f.msg .edit.main.t
  886. +     tkW3EditCopyTags .f.msg .edit.main.t
  887. +     tkW3EditConvertToHTML .edit.main.t
  888. +     tkW3EditSave 1
  889. + }   
  890. + 
  891.   proc tkW3FileSaveAs {} {
  892.       tkW3EditOpen 0
  893.       tkW3EditCopyText .f.msg .edit.main.t
  894. diff -c WWW/TkWWW/Tcl/help.tcl:1.10 WWW/TkWWW/Tcl/help.tcl:1.11
  895. *** WWW/TkWWW/Tcl/help.tcl:1.10    Mon Dec 13 20:06:37 1993
  896. --- WWW/TkWWW/Tcl/help.tcl    Mon Dec 13 20:06:37 1993
  897. ***************
  898. *** 19,25 ****
  899.   
  900.       DLG:toplevel . $w
  901.       DLG:draw_entries $w {To: Subject:}
  902. !     DLG:set_entry_value $w 1 "tk-www-bugs@athena.mit.edu"
  903.       DLG:set_entry_value $w 2 "Comments on tkWWW Version $tkW3Version"
  904.       
  905.       pack append $w \
  906. --- 19,25 ----
  907.   
  908.       DLG:toplevel . $w
  909.       DLG:draw_entries $w {To: Subject:}
  910. !     DLG:set_entry_value $w 1 "tk-www-bugs@mit.edu"
  911.       DLG:set_entry_value $w 2 "Comments on tkWWW Version $tkW3Version"
  912.       
  913.       pack append $w \
  914. ***************
  915. *** 48,62 ****
  916.   }
  917.   
  918.   proc tkW3HelpAddToMailingList {} {
  919. !     tkW3OutputSetMessage "Sending request to tk-www-request@athena.mit.edu"
  920. !     tkW3ConfigSendMail tk-www-request@athena.mit.edu "Subscribe" "Add to list"
  921. !     tkW3OutputSetMessage "Request sent to tk-www-request@athena.mit.edu"
  922.   }
  923.   
  924.   proc tkW3HelpRemoveFromMailingList {} {
  925. !     tkW3OutputSetMessage "Sending request to tk-www-request@athena.mit.edu"
  926. !     tkW3ConfigSendMail tk-www-request@athena.mit.edu "Remove" "Remove from list"
  927. !     tkW3OutputSetMessage "Request sent to tk-www-request@athena.mit.edu"
  928.   }
  929.   
  930.   proc tkW3HelpGetTopic {topic} {
  931. --- 48,62 ----
  932.   }
  933.   
  934.   proc tkW3HelpAddToMailingList {} {
  935. !     tkW3OutputSetMessage "Sending request to tk-www-request@mit.edu"
  936. !     tkW3ConfigSendMail tk-www-request@mit.edu "Subscribe" "Add to list"
  937. !     tkW3OutputSetMessage "Request sent to tk-www-request@mit.edu"
  938.   }
  939.   
  940.   proc tkW3HelpRemoveFromMailingList {} {
  941. !     tkW3OutputSetMessage "Sending request to tk-www-request@mit.edu"
  942. !     tkW3ConfigSendMail tk-www-request@mit.edu "Remove" "Remove from list"
  943. !     tkW3OutputSetMessage "Request sent to tk-www-request@mit.edu"
  944.   }
  945.   
  946.   proc tkW3HelpGetTopic {topic} {
  947. diff -c WWW/TkWWW/Tcl/hypertext.tcl:1.11 WWW/TkWWW/Tcl/hypertext.tcl:1.12
  948. *** WWW/TkWWW/Tcl/hypertext.tcl:1.11    Mon Dec 13 20:06:38 1993
  949. --- WWW/TkWWW/Tcl/hypertext.tcl    Mon Dec 13 20:06:38 1993
  950. ***************
  951. *** 146,152 ****
  952.   
  953.       if {$stack == "list" && $tkW3HtText(list.stack) == {}} {
  954.       tkW3HtBlankLines 2
  955. -     update idletasks
  956.       }
  957.   }
  958.   
  959. --- 146,151 ----
  960. diff -c WWW/TkWWW/Tcl/init.tcl:1.2 WWW/TkWWW/Tcl/init.tcl:1.3
  961. *** WWW/TkWWW/Tcl/init.tcl:1.2    Mon Dec 13 20:06:39 1993
  962. --- WWW/TkWWW/Tcl/init.tcl    Mon Dec 13 20:06:39 1993
  963. ***************
  964. *** 24,29 ****
  965. --- 24,32 ----
  966.   
  967.   catch "set tkW3ConfigFile $env(HOME)/.tkWWW-config"
  968.   set tkW3EditChar(translate) {}
  969. + set tkW3HtPage(base) ""
  970. + set tkW3HtPage(modified) 0
  971. + set tkW3HtPage(is_index) 0
  972.   
  973.   set tkW3ConfigHelpRoot http://tk-www.mit.edu:8001/tk-www/help
  974.   
  975. ***************
  976. *** 61,66 ****
  977. --- 64,70 ----
  978.       {"Open Link..." {DLG:show . .goto_dialog}}
  979.       {"Change directory..." tkW3FileChangeDirectory}
  980.       {}
  981. +         {"Save" tkW3FileSave}
  982.       {"Save as..." tkW3FileSaveAs 0}
  983.       {"Generate Source" tkW3EditGenerate}
  984.       {"Save Text..." tkW3FileSaveText}
  985. ***************
  986. *** 155,164 ****
  987.          {"Starting information sources" "tkW3HelpGetTopic sources" 0}
  988.          {}
  989.          {"Send mail to developer..." "DLG:show . .send_mail_dialog" 0}
  990. !        {"Subscribe to mailing list tk-www@athena.mit.edu"        "tkW3HelpAddToMailingList" }
  991.   
  992. -        {"Unsubscribe to mailing list tk-www@athena.mit.edu"            "tkW3HelpRemoveFromMailingList" }
  993. - 
  994.          {}
  995.          {"Using Help"      "tkW3HelpGetTopic using_help" 6}
  996.          {"Product Information" "tkW3HelpAbout" 0}
  997. --- 159,167 ----
  998.          {"Starting information sources" "tkW3HelpGetTopic sources" 0}
  999.          {}
  1000.          {"Send mail to developer..." "DLG:show . .send_mail_dialog" 0}
  1001. !        {"Subscribe to mailing list tk-www@mit.edu" "tkW3HelpAddToMailingList" }
  1002. !        {"Unsubscribe to mailing list tk-www@mit.edu" "tkW3HelpRemoveFromMailingList" }
  1003.   
  1004.          {}
  1005.          {"Using Help"      "tkW3HelpGetTopic using_help" 6}
  1006.          {"Product Information" "tkW3HelpAbout" 0}
  1007. ***************
  1008. *** 175,180 ****
  1009. --- 178,185 ----
  1010.       {find "Find" {DLG:show . .find_dialog}}
  1011.       {goto "Goto..." {DLG:show . .goto_dialog}}
  1012.       {reload "Reload" tkW3NavigateReload}
  1013. +     {save "Save" tkW3FileSave}
  1014. +     {save_as "Save As..." tkW3FileSaveAs}
  1015.       {generate "Generate Source" {tkW3EditGenerate}}
  1016.       {clone "Clone" {tkW3NavigateClone [tkW3NavigateGetAddress]}}
  1017.       {close_window "Close Window" "tkW3FileQueryCloseWindow"}
  1018. ***************
  1019. *** 484,490 ****
  1020.   bind Text <Control-w> {# xf ignore me 9
  1021.     catch "%W delete sel.first sel.last"}
  1022.   bind Text <Control-y> {# xf ignore me 9
  1023. !   %W insert insert "[tkW3EditGetSelection]"; %W yview -pickplace insert}
  1024.   bind Text <Home> {# xf ignore me 9 
  1025.     %W mark set insert 1.0; %W yview -pickplace insert}
  1026.   bind Text <End> {# xf ignore me 9
  1027. --- 489,495 ----
  1028.   bind Text <Control-w> {# xf ignore me 9
  1029.     catch "%W delete sel.first sel.last"}
  1030.   bind Text <Control-y> {# xf ignore me 9
  1031. !   %W insert insert "[tkW3EditSelectionGet]"; %W yview -pickplace insert}
  1032.   bind Text <Home> {# xf ignore me 9 
  1033.     %W mark set insert 1.0; %W yview -pickplace insert}
  1034.   bind Text <End> {# xf ignore me 9
  1035. ***************
  1036. *** 530,539 ****
  1037.   bind Entry <Control-l> {# xf ignore me 9
  1038.     tk_entrySeeCaret %W}
  1039.   bind Entry <Control-v> {# xf ignore me 9
  1040. !   %W insert insert "[tkW3EditGetSelection]"; tk_entrySeeCaret %W}
  1041.   bind Entry <Control-w> {# xf ignore me 9
  1042.     catch "%W delete sel.first sel.last"; tk_entrySeeCaret %W}
  1043.   bind Entry <Control-y> {# xf ignore me 9
  1044. !   %W insert insert "[tkW3EditGetSelection]"; tk_entrySeeCaret %W}
  1045.   bind Entry <2> {# xf ignore me 9
  1046. !   %W insert insert "[tkW3EditGetSelection]"; tk_entrySeeCaret %W}
  1047. --- 535,544 ----
  1048.   bind Entry <Control-l> {# xf ignore me 9
  1049.     tk_entrySeeCaret %W}
  1050.   bind Entry <Control-v> {# xf ignore me 9
  1051. !   %W insert insert "[tkW3EditSelectionGet]"; tk_entrySeeCaret %W}
  1052.   bind Entry <Control-w> {# xf ignore me 9
  1053.     catch "%W delete sel.first sel.last"; tk_entrySeeCaret %W}
  1054.   bind Entry <Control-y> {# xf ignore me 9
  1055. !   %W insert insert "[tkW3EditSelectionGet]"; tk_entrySeeCaret %W}
  1056.   bind Entry <2> {# xf ignore me 9
  1057. !   %W insert insert "[tkW3EditSelectionGet]"; tk_entrySeeCaret %W}
  1058. diff -c WWW/TkWWW/Tcl/navigate.tcl:1.25 WWW/TkWWW/Tcl/navigate.tcl:1.26
  1059. *** WWW/TkWWW/Tcl/navigate.tcl:1.25    Mon Dec 13 20:06:40 1993
  1060. --- WWW/TkWWW/Tcl/navigate.tcl    Mon Dec 13 20:06:40 1993
  1061. ***************
  1062. *** 182,188 ****
  1063.   
  1064.       # Load the page and get the return code
  1065.       # If the return code contains "Error" signal an error
  1066. !     if [catch "HtLoad $page_value" return_value] {
  1067.       # Ooops there's an error
  1068.       # If it is a "Page Not Found" error create new page
  1069.   
  1070. --- 182,188 ----
  1071.   
  1072.       # Load the page and get the return code
  1073.       # If the return code contains "Error" signal an error
  1074. !     if [catch [list HtLoad $page_value] return_value] {
  1075.       # Ooops there's an error
  1076.       # If it is a "Page Not Found" error create new page
  1077.   
  1078. diff -c WWW/TkWWW/Tcl/output.tcl:1.16 WWW/TkWWW/Tcl/output.tcl:1.17
  1079. *** WWW/TkWWW/Tcl/output.tcl:1.16    Mon Dec 13 20:06:40 1993
  1080. --- WWW/TkWWW/Tcl/output.tcl    Mon Dec 13 20:06:40 1993
  1081. ***************
  1082. *** 198,200 ****
  1083. --- 198,204 ----
  1084.       $w configure -state normal
  1085.       }
  1086.   }
  1087. + 
  1088. + proc tkW3OutputError {message} {
  1089. +     DLG:msg . .error_dialog $message error "OK"
  1090. + }
  1091. diff -c WWW/TkWWW/Tcl/telnet.tcl:1.5 WWW/TkWWW/Tcl/telnet.tcl:1.6
  1092. *** WWW/TkWWW/Tcl/telnet.tcl:1.5    Mon Dec 13 20:06:41 1993
  1093. --- WWW/TkWWW/Tcl/telnet.tcl    Mon Dec 13 20:06:41 1993
  1094. ***************
  1095. *** 30,37 ****
  1096.           append body_text "Log in as \"$user\"\n"
  1097.       }
  1098.       tkW3OutputSetAddress $page {}
  1099. !     tkW3NavigatePreface $body_text "Press here to connect" \
  1100. !         {Connecting...} \
  1101.           [format "tkW3Telnet \{%s\} \{%s\} \{%s\}" $command $host $port]
  1102.       }
  1103.   }
  1104. --- 30,36 ----
  1105.           append body_text "Log in as \"$user\"\n"
  1106.       }
  1107.       tkW3OutputSetAddress $page {}
  1108. !     tkW3NavigatePreface $body_text "telnet connection" \
  1109.           [format "tkW3Telnet \{%s\} \{%s\} \{%s\}" $command $host $port]
  1110.       }
  1111.   }
  1112.